' Header
' This program demonstrates the SPACE$ and STRING$ functions.

length% = 15

fileName$ = "Sweet Pea Inventory"
blank$ = SPACE$(length%)
asterisk$ = STRING$(length%, "*")
banner$ = blank$ + asterisk$ + " " + fileName$ + " " + asterisk$

CLS

PRINT banner$

PRINT
INPUT "Press Return to continue", dummy$
